-- background: 2633 from stack: in -- bmap block id: 3585 -- flags: 0000 -- background id: 0 -- name: -- part 1 (field) -- low flags: 81 -- high flags: 2002 -- rect: left=410 top=143 right=255 bottom=462 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 2 -- text size: 18 -- style flags: 256 -- line height: 24 -- part name: Solution -- part 4 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=399 top=311 right=331 bottom=426 -- title width / last selected line: 0 -- icon id / first selected line: 21700 / 21700 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Home ----- HyperTalk script ----- on mouseUp visual effect dissolve slowly to black visual effect iris open slow to white visual effect dissolve go to home end mouseUp -- part 7 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=58 top=131 right=263 bottom=85 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn1 -- part 8 (field) -- low flags: 01 -- high flags: 6002 -- rect: left=91 top=131 right=263 bottom=118 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn2 -- part 9 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=124 top=131 right=263 bottom=151 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn3 -- part 10 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=157 top=131 right=263 bottom=184 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn4 -- part 11 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=190 top=131 right=263 bottom=217 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn5 -- part 12 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=224 top=131 right=263 bottom=251 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn6 -- part 13 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=258 top=131 right=263 bottom=285 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn7 -- part 14 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=292 top=131 right=263 bottom=319 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn8 -- part 15 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=326 top=131 right=263 bottom=353 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn9 -- part 16 (field) -- low flags: 01 -- high flags: 2002 -- rect: left=359 top=131 right=263 bottom=386 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Turn10 -- part 17 (button) -- low flags: 00 -- high flags: A002 -- rect: left=15 top=38 right=57 bottom=96 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Puzzle ----- HyperTalk script ----- on mouseUp set cursor to 4 set lockscreen to true hide bkgnd field solution Put "" into bkgnd field solution Put bkgnd field colorcount into thecolors repeat with x=1 to 4 put the random of thecolors into itsrandom if itsrandom is 1 then Put "R" into Peg else if itsrandom is 2 then Put "B" into Peg else if itsrandom is 3 then Put "G" into Peg else if itsrandom is 4 then Put "Y" into Peg else if itsrandom is 5 then Put "P" into Peg else if itsrandom is 6 then Put "O" into Peg else if itsrandom is 7 then Put "F" into Peg else if itsrandom is 8 then Put "I" into Peg End if Put peg into line x of sequence end repeat Put sequence into bkgnd field solution repeat with x=1 to 10 put "turn"&x into holder put "status"&x into tholder Put "" into bkgnd field holder Put "" into bkgnd field tholder set showlines of bkgnd field holder to false set textstyle of bkgnd field holder to plain end repeat Put "1" into bkgnd field "turn field" set showlines of bkgnd field Turn1 to true Put R into line 1 of bkgnd field turn1 Put R into line 3 of bkgnd field turn1 Put R into line 5 of bkgnd field turn1 Put R into line 7 of bkgnd field turn1 end mouseUp -- part 19 (button) -- low flags: 00 -- high flags: A002 -- rect: left=15 top=95 right=117 bottom=103 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Evaluate ----- HyperTalk script ----- on mouseUp set lockscreen to true Put bkgnd field "turn field" into whichturn Put "Turn"&whichturn into holder if visible of bkgnd field solution is true then exit mouseup Put bkgnd field holder into theguess Put bkgnd field Solution into thecombo Put "" into yourstatus if line 1 of thecombo is line 1 of theguess then Put "®" into line 1 of theguess put "black"&return after yourstatus Put "∑" into line 1 of thecombo end if if line 2 of thecombo is line 3 of theguess then Put "®" into line 3 of theguess put "black"&return after yourstatus Put "∑" into line 2 of thecombo end if if line 3 of thecombo is line 5 of theguess then Put "®" into line 5 of theguess put "black"&return after yourstatus Put "∑" into line 3 of thecombo end if if line 4 of thecombo is line 7 of theguess then Put "®" into line 7 of theguess put "black"&return after yourstatus Put "∑" into line 4 of thecombo end if if thecombo contains line 1 of theguess then Put offset(line 1 of theguess,thecombo) into position put "white"&return after yourstatus Put "∑" into char position of thecombo end if if thecombo contains line 3 of theguess then Put offset(line 3 of theguess,thecombo) into position put "white"&return after yourstatus Put "∑" into char position of thecombo end if if thecombo contains line 5 of theguess then Put offset(line 5 of theguess,thecombo) into position put "white"&return after yourstatus Put "∑" into char position of thecombo end if if thecombo contains line 7 of theguess then Put offset(line 7 of theguess,thecombo) into position put "white"&return after yourstatus Put "∑" into char position of thecombo end if Put "status"&whichturn into holder Put yourstatus into bkgnd field holder if yourstatus is "black"&return&"black"&return&"black"&return&"black"&return then Put "Turn"&whichturn into holder set showlines of bkgnd field holder to false set textstyle of bkgnd field holder to bold show bkgnd field solution play "applause" Put "Congratulations, you did it in "&whichturn&&"turns!!" into hold answer hold with "Thanks" or "Was Nothing" exit to hypercard end if Put "Turn"&whichturn into holder set showlines of bkgnd field holder to false Put bkgnd field holder into sideline if whichturn<10 then Put whichturn+1 into bkgnd field "turn field" Put "Turn"&whichturn+1 into holder set showlines of bkgnd field holder to true Put sideline into bkgnd field holder else show bkgnd field solution Put 0 into bkgnd field "turn field" Play "boing" answer "Sorry, you couldn't do it!" with "I Know" or "Quiet!" exit to hypercard end if end mouseUp -- part 20 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=22 top=134 right=158 bottom=52 -- title width / last selected line: 0 -- icon id / first selected line: 6179 / 6179 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: advance ----- HyperTalk script ----- on mouseUp Put bkgnd field colorcount into thecolors Put bkgnd field "turn field" into whichturn Put "Turn"&whichturn into holder if visible of bkgnd field solution is true then exit mouseup If line 1 of bkgnd field holder is "R" then Put B into line 1 of bkgnd field holder else if line 1 of bkgnd field holder is "B" then Put G into line 1 of bkgnd field holder else if line 1 of bkgnd field holder is "G" then If thecolors>3 then Put Y into line 1 of bkgnd field holder else Put R into line 1 of bkgnd field holder end if else if line 1 of bkgnd field holder is "Y" then If thecolors>4 then Put P into line 1 of bkgnd field holder else Put R into line 1 of bkgnd field holder end if else if line 1 of bkgnd field holder is "P" then If thecolors>5 then Put O into line 1 of bkgnd field holder else Put R into line 1 of bkgnd field holder end if else if line 1 of bkgnd field holder is "O" then If thecolors>6 then Put F into line 1 of bkgnd field holder else Put R into line 1 of bkgnd field holder end if else if line 1 of bkgnd field holder is "F" then If thecolors>7 then Put I into line 1 of bkgnd field holder else Put R into line 1 of bkgnd field holder end if else if line 1 of bkgnd field holder is "I" then Put R into line 1 of bkgnd field holder else put R into line 1 of bkgnd field holder end if end mouseUp -- part 25 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=263 top=68 right=93 bottom=304 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 2 -- text size: 20 -- style flags: 256 -- line height: 26 -- part name: Turn Field -- part 26 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=57 top=277 right=328 bottom=86 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status1 -- part 27 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=90 top=277 right=328 bottom=119 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status2 -- part 28 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=123 top=277 right=328 bottom=152 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status3 -- part 29 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=156 top=277 right=328 bottom=185 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status4 -- part 30 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=189 top=277 right=328 bottom=218 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status5 -- part 31 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=223 top=277 right=328 bottom=252 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status6 -- part 32 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=257 top=277 right=328 bottom=286 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status7 -- part 33 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=291 top=277 right=328 bottom=320 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status8 -- part 34 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=325 top=277 right=328 bottom=354 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status9 -- part 35 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=358 top=277 right=328 bottom=387 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: status10 -- part 38 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=457 top=32 right=51 bottom=490 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 2 -- text size: 14 -- style flags: 256 -- line height: 18 -- part name: Colorcount -- part 39 (button) -- low flags: 00 -- high flags: 2002 -- rect: left=489 top=23 right=41 bottom=509 -- title width / last selected line: 0 -- icon id / first selected line: 16692 / 16692 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseUp put bkgnd field Colorcount into colornum if visible of bkgnd field solution is false then exit mouseup if colornum is 3 then put 4 into newcolornum else if colornum is 4 then put 5 into newcolornum else if colornum is 5 then put 6 into newcolornum else if colornum is 6 then put 7 into newcolornum else if colornum is 7 then put 8 into newcolornum else if colornum is 8 then put 3 into newcolornum else Put 3 into newcolornum end if Put newcolornum into bkgnd field colorcount put newcolornum*newcolornum*newcolornum*newcolornum into bkgnd field Permcount end mouseUp -- part 40 (button) -- low flags: 00 -- high flags: 2002 -- rect: left=489 top=40 right=58 bottom=509 -- title width / last selected line: 0 -- icon id / first selected line: 3584 / 3584 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseUp if visible of bkgnd field solution is false then exit mouseup put bkgnd field Colorcount into colornum if colornum is 3 then put 8 into newcolornum else if colornum is 8 then put 7 into newcolornum else if colornum is 7 then put 6 into newcolornum else if colornum is 6 then put 5 into newcolornum else if colornum is 5 then put 4 into newcolornum else if colornum is 4 then put 3 into newcolornum else if colornum is 3 then put 7 into newcolornum else Put 3 into newcolornum end if Put newcolornum into bkgnd field colorcount put newcolornum*newcolornum*newcolornum*newcolornum into bkgnd field Permcount end mouseUp -- part 41 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=22 top=164 right=188 bottom=52 -- title width / last selected line: 0 -- icon id / first selected line: 6179 / 6179 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: advance ----- HyperTalk script ----- on mouseUp Put bkgnd field colorcount into thecolors Put bkgnd field "turn field" into whichturn Put "Turn"&whichturn into holder if visible of bkgnd field solution is true then exit mouseup If line 3 of bkgnd field holder is "R" then Put B into line 3 of bkgnd field holder else if line 3 of bkgnd field holder is "B" then Put G into line 3 of bkgnd field holder else if line 3 of bkgnd field holder is "G" then If thecolors>3 then Put Y into line 3 of bkgnd field holder else Put R into line 3 of bkgnd field holder end if else if line 3 of bkgnd field holder is "Y" then If thecolors>4 then Put P into line 3 of bkgnd field holder else Put R into line 3 of bkgnd field holder end if else if line 3 of bkgnd field holder is "P" then If thecolors>5 then Put O into line 3 of bkgnd field holder else Put R into line 3 of bkgnd field holder end if else if line 3 of bkgnd field holder is "O" then If thecolors>6 then Put F into line 3 of bkgnd field holder else Put R into line 3 of bkgnd field holder end if else if line 3 of bkgnd field holder is "F" then If thecolors>7 then Put I into line 3 of bkgnd field holder else Put R into line 3 of bkgnd field holder end if else if line 3 of bkgnd field holder is "I" then Put R into line 3 of bkgnd field holder else put R into line 3 of bkgnd field holder end if end mouseUp -- part 42 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=22 top=197 right=221 bottom=52 -- title width / last selected line: 0 -- icon id / first selected line: 6179 / 6179 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: advance ----- HyperTalk script ----- on mouseUp Put bkgnd field colorcount into thecolors Put bkgnd field "turn field" into whichturn Put "Turn"&whichturn into holder if visible of bkgnd field solution is true then exit mouseup If line 5 of bkgnd field holder is "R" then Put B into line 5 of bkgnd field holder else if line 5 of bkgnd field holder is "B" then Put G into line 5 of bkgnd field holder else if line 5 of bkgnd field holder is "G" then If thecolors>3 then Put Y into line 5 of bkgnd field holder else Put R into line 5 of bkgnd field holder end if else if line 5 of bkgnd field holder is "Y" then If thecolors>4 then Put P into line 5 of bkgnd field holder else Put R into line 5 of bkgnd field holder end if else if line 5 of bkgnd field holder is "P" then If thecolors>5 then Put O into line 5 of bkgnd field holder else Put R into line 5 of bkgnd field holder end if else if line 5 of bkgnd field holder is "O" then If thecolors>6 then Put F into line 5 of bkgnd field holder else Put R into line 5 of bkgnd field holder end if else if line 5 of bkgnd field holder is "F" then If thecolors>7 then Put I into line 5 of bkgnd field holder else Put R into line 5 of bkgnd field holder end if else if line 5 of bkgnd field holder is "I" then Put R into line 5 of bkgnd field holder else put R into line 5 of bkgnd field holder end if end mouseUp -- part 43 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=22 top=229 right=253 bottom=52 -- title width / last selected line: 0 -- icon id / first selected line: 6179 / 6179 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: advance ----- HyperTalk script ----- on mouseUp Put bkgnd field colorcount into thecolors Put bkgnd field "turn field" into whichturn Put "Turn"&whichturn into holder if visible of bkgnd field solution is true then exit mouseup If line 7 of bkgnd field holder is "R" then Put B into line 7 of bkgnd field holder else if line 7 of bkgnd field holder is "B" then Put G into line 7 of bkgnd field holder else if line 7 of bkgnd field holder is "G" then If thecolors>3 then Put Y into line 7 of bkgnd field holder else Put R into line 7 of bkgnd field holder end if else if line 7 of bkgnd field holder is "Y" then If thecolors>4 then Put P into line 7 of bkgnd field holder else Put R into line 7 of bkgnd field holder end if else if line 7 of bkgnd field holder is "P" then If thecolors>5 then Put O into line 7 of bkgnd field holder else Put R into line 7 of bkgnd field holder end if else if line 7 of bkgnd field holder is "O" then If thecolors>6 then Put F into line 7 of bkgnd field holder else Put R into line 7 of bkgnd field holder end if else if line 7 of bkgnd field holder is "F" then If thecolors>7 then Put I into line 7 of bkgnd field holder else Put R into line 7 of bkgnd field holder end if else if line 7 of bkgnd field holder is "I" then Put R into line 7 of bkgnd field holder else put R into line 7 of bkgnd field holder end if end mouseUp -- part 44 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=457 top=63 right=83 bottom=510 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 2 -- text size: 14 -- style flags: 256 -- line height: 18 -- part name: Permcount